global infile "DataDaily.dta"
global outfile "$results\Table 9"


* Day-of-week estimates

use "$infile", clear
gen logwpd = log(wpd+1)
gen logwpd0 = log(wpd)
gen dwpd = (wpd > 0)

forvalues i = 1(1)7 {
	gen treatdow`i' = (dow == `i' & treat == 1)
}

reghdfe logwpd treatdow1-treatdow7 i.dow, absorb(datasethome datasetweek) cluster(home)
outreg2 using "$outfile", nocon 2aster dec(3) word replace

reghdfe logwpd0 treatdow1-treatdow7 i.dow, absorb(datasethome datasetweek) cluster(home)
outreg2 using "$outfile", nocon 2aster dec(3) word ap

reghdfe dwpd treatdow1-treatdow7 i.dow, absorb(datasethome datasetweek) cluster(home)
outreg2 using "$outfile", nocon 2aster dec(3) word ap
